(make-coding-system): Fix typo.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 87c16f9d3630b508419a9424c5a564b040846ead..3eddc32a25c583829adac00edcd44c89404c6445 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -750,7 +750,7 @@ a value of `safe-charsets' in PLIST."
       (let ((args (transform-make-coding-system-args coding-system type
                                                     mnemonic doc-string)))
        (setq coding-system (car args)
-             type (nth 1 nargs)
+             type (nth 1 args)
              mnemonic (nth 2 args)
              doc-string (nth 3 args)
              flags (nth 4 args)